home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed17.d64 / lesson 3 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  248 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <N0>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE [159]"
  28. 92 GETR$:IFR$<>CHR$(32)THEN92
  29. 93 RETURN
  30. 95 PRINT"  [194]ETTER LUCK WITH THE NEXT QUESTION.[159]":RETURN
  31. 100 POKE53280,0:POKE53281,0:POKE53272,23:POKE646,3
  32. 101 PRINT"[147]      [193][160][212][208][213][199][160][197][196][213][195][193][212][201][207][206][193][204][160][208][210][207][199][210][193][205]
  33. 102 [153]"           ASC(null)(null)CLOSELEN64 LEN(null)(null)(null)(null)(null)VAL(null)(null)
  34. 105 PRINT"                                        [146]";
  35. 110 PRINT"                                        [146]";
  36. 115 PRINT"     [208]RACTICE [208]ROBLEMS IN [193]RITHMETIC    [146]";
  37. 120 PRINT"                                        [146]";
  38. 125 PRINT"           [199]RADE 3     [208]ART 2           [146]";
  39. 130 PRINT"                                        [146]";
  40. 135 PRINT"               [204]ESSON  3                [146]";
  41. 140 PRINT"                                        [146]";
  42. 145 PRINT"           [199]ENERAL [208]ROBLEMS    [159]         [146]";
  43. 150 PRINT"                                        [146]";
  44. 155 PRINT"                                        [146]"
  45. 160 PRINT"                  WHC "
  46. 165 GOSUB90
  47. 170 PRINT"[147]       [193]ND AWAY WE GO......."
  48. 175 GOSUB81:GOSUB50:GOSUB80
  49. 200 PRINT"[152][147]               [209]UESTION 1 [146][159]":Z=0
  50. 205 PRINT"  [198]IND THE COST OF THE FOLLOWING
  51. 210 [153]"  ARTICLES:  BASEBALL $2.60; BAT $7.50
  52. 215 PRINT"  GLOVE $9.25. ([196]ON'T FORGET THE          $ SIGN)"
  53. 220 GOSUB81:GOSUB70
  54. 225 PRINT"             [145]"
  55. 230 INPUT A$
  56. 235 IFA$<>"$19.35"THEN 250
  57. 240 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  58. 245 P=P+1:GOTO300
  59. 250 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  60. 255 IFZ=2THENG=G+1:GOTO275
  61. 260 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  62. 265 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO225
  63. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  64. 275 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  $19.35 [150] ":GOSUB82
  65. 280 PRINT"   2.60 + 7.50 +2.25 = 19.35   "
  66. 295 GOSUB82:GOSUB90
  67. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  68. 305 PRINT"  [199]ILLIAN PICKED 20 PINTS OF BERRIES.
  69. 310 [153]"  LEFT$OW MANY MORE MUST SHE PICK TO MAKE
  70. 315 PRINT"  45 PINTS?"
  71. 320 GOSUB81:GOSUB70
  72. 325 PRINT"             [145]"
  73. 330 INPUT A$
  74. 335 IFA$<>"25"THEN 350
  75. 340 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  76. 345 P=P+1:GOTO400
  77. 350 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  78. 355 IFZ=2THENG=G+1:GOTO375
  79. 360 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  80. 365 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO325
  81. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  82. 375 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  25 [150] PINTS.":GOSUB82
  83. 380 PRINT"   45 - 20 = 25      "
  84. 395 GOSUB82:GOSUB90
  85. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  86. 405 PRINT"  [193] FARMER HAS 420 SHEEP IN TWO FIELDS.
  87. 410 [153]"  RIGHT$F 236 SHEEP ARE IN ONE FIELD, HOW
  88. 415 PRINT"  MANY ARE IN THE OTHER FIELD?"
  89. 420 GOSUB81:GOSUB70
  90. 425 PRINT"             [145]"
  91. 430 INPUT A$
  92. 435 IFA$<>"184"THEN 450
  93. 440 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  94. 445 P=P+1:GOTO500
  95. 450 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  96. 455 IFZ=2THENG=G+1:GOTO475
  97. 460 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  98. 465 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO425
  99. 470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  100. 475 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  184 [150] SHEEP ":GOSUB82
  101. 480 PRINT"   420 - 236 = 184             "
  102. 495 GOSUB82:GOSUB90
  103. 500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
  104. 505 PRINT"  [193] FARMER TOOK 85 CHICKENS TO MARKET
  105. 510 [153]"  AND SOLD ALL BUT 9 OF THEM.
  106. 515 PRINT"  [200]OW MANY CHICKENS DID HE SELL?"
  107. 520 GOSUB81:GOSUB70
  108. 525 PRINT"             [145]"
  109. 530 INPUT A$
  110. 535 IFA$<>"76"THEN 550
  111. 540 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  112. 545 P=P+1:GOTO600
  113. 550 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  114. 555 IFZ=2THENG=G+1:GOTO575
  115. 560 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  116. 565 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO525
  117. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  118. 575 PRINT"[145][145]  [212]HE CORRECT ANSWER IS  76 [150] CHICKENS.":GOSUB82
  119. 580 PRINT"   85 - 9 = 76                 "
  120. 595 GOSUB82:GOSUB90
  121. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  122. 605 PRINT"  [193] MAN DROVE 263 MILES ONE DAY AND
  123. 610 [153]"  178 MILES THE NEXT.
  124. 615 PRINT"  [200]OW MANY MILES DID HE DRIVE IN ALL?"
  125. 620 GOSUB81:GOSUB70
  126. 625 PRINT"             [145]"
  127. 630 INPUT A$
  128. 635 IFA$<>"441"THEN 650
  129. 640 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  130. 645 P=P+1:GOTO700
  131. 650 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  132. 655 IFZ=2THENG=G+1:GOTO675
  133. 660 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  134. 665 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO625
  135. 670 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  136. 675 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  441 MILES
  137. 680 [153]"   263 + 178 = 441             "
  138. 695 [141]82:[141]90
  139. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  140. 705 [153]"  LEFT$OW MUCH CHANGE WILL RIGHT$ GET FROM
  141. 710 PRINT"  5 DOLLARS IF [201] BUY A HAT FOR $3.85?"
  142. 720 GOSUB81:GOSUB70
  143. 725 PRINT"             [145]"
  144. 730 INPUT A$
  145. 735 IFA$<>"$1.15"THEN 750
  146. 740 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  147. 745 P=P+1:GOTO800
  148. 750 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  149. 755 IFZ=2THENG=G+1:GOTO775
  150. 760 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  151. 765 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO725
  152. 770 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  153. 775 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $1.15     [150]"
  154. 780 PRINT"   5.00 - 3.85 = 1.15           "
  155. 795 GOSUB82:GOSUB90
  156. 800 PRINT"[152][147]               [209]UESTION 7 [146][159]":Z=0
  157. 805 PRINT"  [193] STOREKEEPER HAD 65 CANS OF CORN
  158. 810 [153]"  AND SOLD 27 CANS.  LEFT$OW MANY WERE
  159. 815 PRINT"  LEFT?"
  160. 820 GOSUB81:GOSUB70
  161. 825 PRINT"             [145]"
  162. 830 INPUT A$
  163. 835 IFA$<>"38"THEN850
  164. 840 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  165. 845 P=P+1:GOTO900
  166. 850 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  167. 855 IFZ=2THENG=G+1:GOTO875
  168. 860 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  169. 865 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO825
  170. 870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  171. 875 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  38 [150] CANS."
  172. 880 PRINT"   65 - 27 = 38                 "
  173. 895 GOSUB82:GOSUB90
  174. 900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
  175. 905 PRINT"  [205]ARY FOUND SHE HAD $1.15 LEFT OUT
  176. 910 [153]"  $5.   LEFT$OW MUCH HAD SHE SPENT?
  177. 920 GOSUB81:GOSUB70
  178. 925 PRINT"             [145]"
  179. 930 INPUT A$
  180. 935 IFA$<>"$3.85"THEN950
  181. 940 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  182. 945 P=P+1:GOTO1000
  183. 950 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  184. 955 IFZ=2THENG=G+1:GOTO975
  185. 960 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  186. 965 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO925
  187. 970 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  188. 975 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  $3.85 [150] "
  189. 980 PRINT"   5.00 - 1.15 = 3.85      "
  190. 995 GOSUB82:GOSUB90
  191. 1000 PRINT"[152][147]               [209]UESTION 9 [146][159]":Z=0
  192. 1005 PRINT"  [201]N THREE TRAINS THERE WERE 43 CARS,
  193. 1010 [153]"  27 CARS, AND 36 CARS.
  194. 1015 PRINT"  [200]OW MANY CARS WERE THERE IN ALL?"
  195. 1020 GOSUB81:GOSUB70
  196. 1025 PRINT"             [145]"
  197. 1030 INPUT A$
  198. 1035 IFA$<>"106"THEN1050
  199. 1040 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  200. 1045 P=P+1:GOTO1100
  201. 1050 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  202. 1055 IFZ=2THENG=G+1:GOTO1075
  203. 1060 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  204. 1065 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]":GOTO1025
  205. 1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  206. 1075 PRINT"[145][145]   [212]HE CORRECT ANSWER IS  106 [150] CARS."
  207. 1080 PRINT"   43 + 27 + 36 = 106      "
  208. 1095 GOSUB82:GOSUB90
  209. 1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
  210. 1105 PRINT"  [193] CLASS WANTED A NEW PICTURE THAT
  211. 1110 [153]"  COST $7.50.  (null)HE TEACHER SAID THERE
  212. 1115 PRINT"  WAS ONLY $4.95 IN THE CLASS FUND.
  213. 1117 [153]"  LEFT$OW MUCH DID IT LACK?"
  214. 1120 [141]81:[141]70
  215. 1125 [153]"             ON"
  216. 1130 [133] A$
  217. 1135 [139]A$[179][177]"$2.55"[167]1150
  218. 1140 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  219. 1145 P[178]P[170]1:[137]1200
  220. 1150 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  221. 1155 [139]Z[178]2[167]G[178]G[170]1:[137]1175
  222. 1160 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  223. 1165 [153]"OPENONON                                        ONONONONONONON":[137]1125
  224. 1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  225. 1175 [153]"ONON   (null)HE CORRECT ANSWER IS  $2.55 DEF "
  226. 1180 [153]"   7.50 - 4.95 = 2.55      "
  227. 1195 [141]82:[141]90
  228. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  229. 1205 D[178]W[171]G:C[178]10[171]W
  230. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  231. 1215 PRINT"                 ";C
  232. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  233. 1225 [153]"                 ";D
  234. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  235. 1235 PRINT"                 ";G;""
  236. 1245 GOSUB90
  237. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  238. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  239. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  240. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  241. 1270 IFR$="R"THENRESTORE:GOTO100
  242. 1275 RESTORE
  243. 1280 PRINT"[147] [210]ETURNING TO THE MENU
  244. 1285 [147]"MENU",8
  245. 1290 [138]
  246. 1295 [128]
  247. 1300 [143] BILL CUMBERLAND 90:12:18
  248.